CAAElliptical_Calculate_Pluto <-
function(JD){
.Call("CAAElliptical_Calculate_Pluto", JD)
}
